Minuetz3c V TV qX d;:player,dice,music,vol,tempo,die1,part,rndtable,outtable nm59462F,59611,60138,61178,61179,61181,61183,61195 ,63871 x):7:0:7:0: }r:0,8,12 :0,31,501:0,0,472:0,23,7 3d=100d:Delay in frames between page displays t=4:Tempo 0..6 /v=6:Volume 0..7, 0=silent, 7 = loudest .0::4,1;"BAR DICE ROLL" p6:228,19:23,0:0,-15:-23,0:0,15:0 %18,28;5;"ROLL"; P1,0;2;1;1;" MOZART DICE WALTZ GENERATOR v3 " ex=015:r1= 1+(*6):r2=(*6)+1: r=r1+r2:not INT ( RND *11+2)! ? 20,29;1;" "x<9 ;x+1;0  rndtable+x,r-2 N die1,r1:die1+1,r2:700: l=dice:800 :*40(+1 d6;5+x,2;x+1;" ";" "x<9 ;r;" "r<10 ;" = ";r1;"&";r2:9 x:d  p=01  part,p::l=music  d = 50,61442,4096+p*6144 "p ')Restore p1 BANK 2 COPY 4096,6144 TO 5,0 ,500:d 1vol,v 6tempo,t+6 @ l=player J1:d*2:160 TB36863:"Minuetz2c"59000x:"HiresMerge"55025: ^4Based on Motzart's 1787 Musikalisches Wuerfelspiel h3as interpreted by Rod Hopkins and H J Laverty for r3Protek Ltd. and Your Computer Magazine March 1983 |5then adapted for Spectrum 128 by Ian Collier, later 5tweaked by Simon N Goodwin to autoplay with correct probability distribution 3& adapted to show all the music in Next LAYER 1,2  +Merge screen$ at 36K and 42K to layer 1,2 1,2:0  %o=%87 387W,11 :Map hires odd columns to 57344 55025:580D 1Merge two 6K screens to left and right in hires )%l=32 189*32 32 & %c=015:%t=%l+c:%s=%t+c  %t+16384, %(s+36864) ! %t+16400, %(s+43008) & %t+57344, %(s+36865) + %t+57360, %(s+43009) 0 %c :%l D!1:%c=254257 N#%c,0:0,191:%c S80:254,19:0,568:1 TW 0,0;" Motzart's 1787 Musikalisches Wuerfelspiel - Spectrum Next remix"; UW11 ,0;"Left side of music plays twice then the right half does the same"; VV23,0;" Coding: Rod Hopkins, HJ Laverty, Ian Collier & Simon N Goodwin"; WD0:%c=504511:%c,184:0,7:%c X 87W,%o b   Rattle dice  ayr=65533:ayd=49149 ayr,6:ayd,%(5)+5 /%c=810 :ayr,%c:ayd,16:%c .ayr,7:%d=ayd:%d=%d&@11101101:ayd,%d 6ayr,13 :ayd,8:ayr,12 :ayd,4 ayr,11 :ayd,%(255)    /Mute all channels, turn noise and tone B off  $ayr,13 :ayd,0:2 %.%c=810 :ayr,%c:ayd,0:%c *ayr,7:ayd,%d+@00010010 4 > 'a:"Minuetz3c"340T:"Minuetz2c"59000x,5903:"HiresMerge"55025,246 Minuetz2c xVvo>yxCyB>yC>y }oҬ>y>y } >y Kxfy<<< :y_W(= 0 _!^#V(:KYx~#x>xw>x#x:x:(:(-4@28=(-4@8:v= C>yC>yx($C>yC>yx(C>K=yKy K>yK>y:W.KiKQ, Kx>yK>y*}<<<ȯ2 :<2 ͗!" ! "[* _^bk))))ů2~#:<2 KxĎ !"!s" *|ȯ2:<*{\>Oo&)"{\O>/G_xG *{\ y8"{\_y0 :C :C"{\!yo&)"{\!vv~~# xyx Gͪ" 6#xG ! !ZxG xG#y2:O~#<=(O x GC}\8ͺ$w͓x(Gw͞>2G}xXGg."}\:Ox2y GMͺ$:8ͳ:! ("!X(" >2> 2!""*^#"* ^kb))))"2:*~+^#( ###  Wէ.#Ol(8yZyZyO:({(0 =(=  P: G8$G(G8͍xG0 ͍xG=8B{( S}<8:=(}*8N8(z8!^#V)K :>8>(>G!^#V: 2H2:<2*#"?:=2o: g"}\8ͺ$*  " :<!>Pw! "}\8ͺ$P9x"<8 A86$BU'`" >BU'/pK of{[\& %8 I)1.z6TVsw~GxQnCkc*2P=iJg+! jZ| _7tW?^;Nla:Sb#mq@yLEe9v-,X 3hdHO-4llll9ry?|?pHg翟?>?xp?os>MNyI669O?66|x ??>>`pӳ?? |>>p`?oo9瞞~y?|?||pxg翟g9||xp9os>??}~yIg779O?|x?os>MNyI669O?66|x9os>}~yyg???os>MNOg669O?66|x9os>??}~yIg779O?|x9os>MNyyO669Oy966|x9os>MNg??77HiresMergeV! !)))))! "Z"\"X!"^!!!"""!."*X*"**"*!@*!n&s*!@*!n&s*!*!n&s*!*!n&s*K "[ַR(|(**XKZ "X[\ַR(|(*^